(load "flatten-actor.scm")
(load "dice.scm")
(define warrior
 (lambda ($actor)
  $actor))
